home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / DAT001.QM < prev    next >
Text File  |  1992-05-27  |  10KB  |  186 lines
  1. *                               dat001.qm
  2. *                        Written By Tom Hogshead
  3. *                       [ See DATExx.QM For Use ]
  4. *                                 5/12/92
  5. *                                                                      Bytes
  6. *  Key       Subfile                   Description/Output           Small Fast
  7. * =====  ===============  ========================================== ==== ====
  8. * @(4)                    April 9, 1992                                68
  9. * @(1)                    |                                                333
  10. * @(f4)                   9 April 1992                  (European)     68 |chg
  11. * @(f1)                   |     ( no comma)            (European) |chg    336
  12. *                                                                       
  13. *          {e:\up\DATE*}--Return To DATExx.QM                         BEST
  14. *
  15. *-- eoi
  16.  
  17. *  See DATE*.QM for timing results comparing @1 and @4.
  18.  
  19. *                          M A C R O S
  20. * ---------------------------------------------------------------------
  21. * @(1) Date in English "March 9, 1991", not "Sat  03-09-1991"
  22. * ---------------------------------------------------------------------
  23. @1      macrobegin setscreenoff savesettings setinsmode setsoundoff
  24.         defaultwordset
  25.         insertdate
  26.         toggleinsert wordleft backspace  * Delete dashes
  27.         wordleft backspace toggleinsert  *
  28. * ------------------ Replace Month Number with Name ------------------*
  29.         wordleft wordleft delrtword markcolumn
  30.         findreplace "0" return delline return "ln" return
  31.         markword
  32.         findreplace "1"  return "January"   return "lnw" return
  33.         findreplace "2"  return "February"  return "lnw" return
  34.         findreplace "3"  return "March"     return "ln"  return
  35.         findreplace "4"  return "April"     return "ln"  return
  36.         findreplace "5"  return "May"       return "ln"  return
  37.         findreplace "6"  return "June"      return "ln"  return
  38.         findreplace "7"  return "July"      return "ln"  return
  39.         findreplace "8"  return "August"    return "ln"  return
  40.         findreplace "9"  return "September" return "ln"  return
  41.         findreplace "10" return "October"   return "ln"  return
  42.         findreplace "11" return "November"  return "ln"  return
  43.         findreplace "12" return "December"  return "ln"  return
  44.         wordright markcolumn
  45.         findreplace
  46.             "0" return delline return "ln" return   * Remove leading zeros
  47.         markword gotoblockend ","                   * Insert "," after day #
  48.         wordright markword gotoblockend cursorright
  49.         unmarkblock restoresettings
  50. *
  51. * 408 bytes Thu  03-21-1991  04:57:30
  52. * 410 bytes Mon  04-01-1991  10:42:59 put 2 spaces after year
  53. * 377 bytes Thu  04-11-1991  16:08:44 removed jtrue NODASH
  54. * 376 bytes Wed  04-08-1992  20:49:13 (TH @1, added setscreenoff)
  55. * 376 bytes Wed  04-08-1992  20:49:13 (TH @1, to TT #21/5260-63)
  56. * 376 bytes Wed  04-08-1992  20:49:13 (TH @1, to ALL #3/831-33)
  57. * 333 bytes Mon  04-13-1992  11:34:33 (TH @1, shortened)
  58. * 333 bytes Mon  04-13-1992  11:34:33 (TH @1, to ALL #3/834-35)
  59.  
  60. * 
  61. * ---------------------------------------------------------------------
  62. * @(4) Date in English Format "April 9, 1992"
  63. *      Uses Data File $date, Small
  64. * ---------------------------------------------------------------------
  65. *   The data file $date must exist in the current directory or change
  66. *   "d:\path\" to your path containing $date to execute in any
  67. *   directory.  This macro will fit on one line of Qconfig.dat.  File
  68. *   $date contains:
  69. * ┌──────────────────────────────────────────────────────────────────┐
  70. * │$date                                                             │
  71. * │Mon Monday    Tue Tuesday  Wed Wednesday  Thu Thursday  Fri Friday│
  72. * │Sat Saturday  Sun Sunday   01 January     02 February   03 March  │
  73. * │04 April      05 May       06 June        07 July       08 August │
  74. * │09 September  10 October   11 November    12 December             │
  75. * └──────────────────────────────────────────────────────────────────┘
  76.  
  77. @4      macrobegin setscreenoff setinsmode defaultwordset insertdate
  78. * ------------------------ Remove Second Dash ------------------------*
  79.         wordleft toggleinsert backspace wordleft
  80. * ------------------ Remove Day Number Leading Zero ------------------*
  81.         unmarkblock markcolumn                      * Mark day digit 1
  82.         findreplace
  83.             "0" return delline return "ln" return   * Remove leading zero
  84. * --------------- Remove First Dash, Delete Day Name ---------------*
  85.         backspace wordleft wordleft toggleinsert delrtword
  86. * ------------------ Replace Month Number with Name ------------------*
  87.         markword cut onewindow horizontalwindow
  88.         editfile
  89. *           "d:\path\"              * Change to your path for "$date"
  90.             "$date" return
  91.         find paste return delline return
  92.         wordright markword copy quit prevwindow onewindow paste
  93. * ------------------ Insert Comma After Day Number ------------------*
  94.         wordright markword gotoblockend "," wordright
  95.         markword gotoblockend cursorright unmarkblock
  96. *
  97. * 78 bytes Thu  04-09-1992  22:11:39 (TH @4)
  98. * 78 bytes Thu  04-09-1992  22:11:39 (TH @4, to TT #21/5260-63)
  99. * 78 bytes Fri  04-10-1992  10:36:51 (TH @4, to ALL #3/831-33)
  100. * 78 bytes Fri  04-10-1992  10:36:51 (TH @4, to ALL #3/834-35)
  101. * 68 bytes Tue  04-14-1992  08:06:58 (TH @4, shortened)
  102. * 68 bytes Tue  04-14-1992  08:06:58 (TH @4, to ALL #3/836)
  103. * 68 bytes Tue  05-12-1992  09:05:02 (TH @4, changed description)
  104.  
  105. * 
  106. * ---------------------------------------------------------------------
  107. * @(f1) Date in European Format "9 April 1992", Fast
  108. * ---------------------------------------------------------------------
  109. @f1     macrobegin setscreenoff savesettings setinsmode setsoundoff
  110.         defaultwordset
  111.         insertdate
  112.         toggleinsert wordleft backspace  * Delete dashes
  113.         wordleft backspace toggleinsert  *
  114. * ------------------ Replace Month Number with Name ------------------*
  115.         wordleft wordleft delrtword markcolumn
  116.         findreplace "0" return delline return "ln" return
  117.         markword
  118.         findreplace "1"  return "January"   return "lnw" return
  119.         findreplace "2"  return "February"  return "lnw" return
  120.         findreplace "3"  return "March"     return "ln"  return
  121.         findreplace "4"  return "April"     return "ln"  return
  122.         findreplace "5"  return "May"       return "ln"  return
  123.         findreplace "6"  return "June"      return "ln"  return
  124.         findreplace "7"  return "July"      return "ln"  return
  125.         findreplace "8"  return "August"    return "ln"  return
  126.         findreplace "9"  return "September" return "ln"  return
  127.         findreplace "10" return "October"   return "ln"  return
  128.         findreplace "11" return "November"  return "ln"  return
  129.         findreplace "12" return "December"  return "ln"  return
  130.         wordright markcolumn
  131.         findreplace
  132.             "0" return delline return "ln" return   * Remove leading zeros
  133. * ----------------------- Swap Month With Day -----------------------*
  134.         markword cursorleft markcolumn wordleft moveblock shiftleft        *|
  135.         wordright wordright markword gotoblockend cursorright
  136.         unmarkblock restoresettings
  137. *
  138. * 341 bytes Mon  04-13-1992  11:33:03 (TH @f1)
  139. * 336 bytes Tue  05-12-1992  08:56:37 (TH @f1, removed commas *|)
  140.  
  141. * 
  142. * ---------------------------------------------------------------------
  143. * @(f4) Date in European Format "9 April 1992"
  144. *       Uses Data File $date, Small
  145. * ---------------------------------------------------------------------
  146. *   The data file $date must exist in the current directory or change
  147. *   "d:\path\" to your path containing $date to execute in any
  148. *   directory.  This macro will fit on one line of Qconfig.dat.  File
  149. *   $date contains:
  150. * ┌──────────────────────────────────────────────────────────────────┐
  151. * │$date                                                             │
  152. * │Mon Monday    Tue Tuesday  Wed Wednesday  Thu Thursday  Fri Friday│
  153. * │Sat Saturday  Sun Sunday   01 January     02 February   03 March  │
  154. * │04 April      05 May       06 June        07 July       08 August │
  155. * │09 September  10 October   11 November    12 December             │
  156. * └──────────────────────────────────────────────────────────────────┘
  157.  
  158. @f4     macrobegin setscreenoff setinsmode defaultwordset insertdate
  159. * ------------------------ Remove Second Dash ------------------------*
  160.         wordleft toggleinsert backspace wordleft
  161. * ------------------ Remove Day Number Leading Zero ------------------*
  162.         unmarkblock markcolumn                      * Mark day digit 1
  163.         findreplace
  164.             "0" return delline return "ln" return   * Remove leading zero
  165. * --------------- Remove First Dash, Delete Day Name ---------------*
  166.         backspace wordleft wordleft toggleinsert delrtword
  167. * ------------------ Replace Month Number with Name ------------------*
  168.         markword cut onewindow horizontalwindow
  169.         editfile
  170. *           "d:\path\"              * Change to your path for "$date"
  171.             "$date" return
  172.         find paste return delline return
  173.         wordright markword copy quit prevwindow onewindow paste
  174. * ----------------------- Swap Month With Day -----------------------*
  175.         gotoblockend markcolumn wordright wordright moveblock wordright    *|
  176.         markword gotoblockend cursorright unmarkblock
  177. *
  178. * 79 bytes Fri  04-10-1992  11:17:33 (TH @f4)
  179. * 79 bytes Fri  04-10-1992  11:17:33 (TH @f4, to TT #21/5260-63)
  180. * 79 bytes Fri  04-10-1992  11:17:33 (TH @f4, to ALL #3/831-33)
  181. * 70 bytes Tue  04-14-1992  06:23:45 (TH @f4, shortened)
  182. * 68 bytes Tue  05-12-1992  08:52:57 (TH @f4, removed commas *|)
  183. * 68 bytes Tue  05-12-1992  09:17:19 (TH @f4, changed description)
  184.  
  185. *--eof
  186.